COMMENT ⊗   VALID 00004 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	(defun insert (x q)
C00003 00003	(setq base (setq ibase 10.))
C00005 00004	(defun insert (x q)
C00006 ENDMK
C⊗;
(defun insert (x q)
       (if (null q)
	   (progn
	    (rplaca q x)
	    (rplaca q x))
	   (progn
	    (rplacd (cdr q) x)
	    (rplacd q x))))

(defun remove (q)
       (if (null q)
	   nil
	   (let ((answer (car q)))
		(rplaca q (caar q))
		answer)))

(let ((setq x 3)) 4)
(setq base (setq ibase 10.))
(defun f (x) (plus 1 (times x x)))
(setq n (plus 1 (expt 2 32)))
(defun g (x) (remainder (f x) n))
(defun iter (x k) (if (zerop k) x (iter (g x) (sub1 k))))
(defun s (x) (remainder x 641))
(defun iter1 (x k) (prog (j y) (setq j k) (setq y x)
loop (if (zerop j) (return y))
(setq y (g y))
(setq j (sub1 j))
(go loop)))

(defun try (k) (let ((z (iter1 a k)))
		    (gcd n (difference (iter1 z k) z))))

(defun g1 (x) (remainder (f x) 641))
(defun iter2 (x k) (prog (j y) (setq j k) (setq y k)
loop (if (zerop j) (return y))
(setq y (g1 y))
(setq j (sub1 j))
(go loop)))
(defun r () (g1 *))
(setq l (1+ l)) (try l)

(defun insert (x q)
       ((lambda (z)
		(if (null (car q))
		    (cons z z)
		    (progn (rplacd (cdr q) z) (rplacd q z))))
	(list x)))

(setq z0 '(nil))
(setq z1 '(nil))
(insert 'b z1)